home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Programming / amigatalk / prelude / AmigaTalk.p < prev    next >
Encoding:
Text File  |  2001-02-28  |  5.7 KB  |  182 lines
  1. pTempVar <- <primitive 110 41 >
  2. <primitive 112 pTempVar 1  " displayInteger: " \
  3.   #( #[ 16r54 16r21 16r11 16r12 16rFA 16r04 16rBA 16rF2 16rF5] \
  4.     #(  )) >
  5.  
  6. <primitive 112 pTempVar 2  " displayString: " \
  7.   #( #[ 16r53 16r21 16r11 16r12 16rFA 16r04 16rBA 16rF2 16rF5] \
  8.     #(  )) >
  9.  
  10. <primitive 112 pTempVar 3  " displayFile: " \
  11.   #( #[ 16r52 16r21 16rFA 16r02 16rBA 16rF2 16rF5] \
  12.     #(  )) >
  13.  
  14. <primitive 112 pTempVar 4  " getScreenModeID " \
  15.   #( #[ 16r56 16r11 16r12 16rFA 16r03 16rBA 16rF3 16rF5] \
  16.     #(  )) >
  17.  
  18. <primitive 112 pTempVar 5  " getFileName " \
  19.   #( #[ 16r55 16r11 16r12 16rFA 16r03 16rBA 16rF3 16rF5] \
  20.     #(  )) >
  21.  
  22. <primitive 112 pTempVar 6  " getInteger " \
  23.   #( #[ 16r51 16r11 16r12 16rFA 16r03 16rBA 16rF3 16rF5] \
  24.     #(  )) >
  25.  
  26. <primitive 112 pTempVar 7  " getString " \
  27.   #( #[ 16r50 16r11 16r12 16rFA 16r03 16rBA 16rF3 16rF5] \
  28.     #(  )) >
  29.  
  30. <primitive 112 pTempVar 8  " setIOScreenName: " \
  31.   #( #[ 16r21 16r61 16rF5] \
  32.     #(  )) >
  33.  
  34. <primitive 112 pTempVar 9  " setIODirectory: " \
  35.   #( #[ 16r21 16r61 16rF5] \
  36.     #(  )) >
  37.  
  38. <primitive 112 pTempVar 10  " setIOTitle: " \
  39.   #( #[ 16r21 16r62 16rF5] \
  40.     #(  )) >
  41.  
  42. <primitive 112 pTempVar 11  " setIOMessage: " \
  43.   #( #[ 16r21 16r61 16rF5] \
  44.     #(  )) >
  45.  
  46. <primitive 112 pTempVar 12  " newIO:title: " \
  47.   #( #[ 16r21 16r61 16r22 16r62 16r20 16rF3 16rF5] \
  48.     #(  )) >
  49.  
  50. <primitive 112 pTempVar 13  " displayWindowInfo: " \
  51.   #( #[ 16r51 16r53 16r21 16rFA 16r03 16rFA 16rF3 16rF5] \
  52.     #(  )) >
  53.  
  54. <primitive 112 pTempVar 14  " displayScreenInfo: " \
  55.   #( #[ 16r51 16r52 16r21 16rFA 16r03 16rFA 16rF3 16rF5] \
  56.     #(  )) >
  57.  
  58. <primitive 112 pTempVar 15  " displayTaskInfo: " \
  59.   #( #[ 16r51 16r51 16r21 16rFA 16r03 16rFA 16rF3 16rF5] \
  60.     #(  )) >
  61.  
  62. <primitive 112 pTempVar 16  " displayProcessInfo: " \
  63.   #( #[ 16r51 16r50 16r21 16rFA 16r03 16rFA 16rF3 16rF5] \
  64.     #(  )) >
  65.  
  66. <primitive 112 pTempVar 17  " showScreenWindowList " \
  67.   #( #[ 16r51 16r55 16rFA 16r02 16rFA 16rF3 16rF5] \
  68.     #(  )) >
  69.  
  70. <primitive 112 pTempVar 18  " showTaskProcessList " \
  71.   #( #[ 16r51 16r54 16rFA 16r02 16rFA 16rF3 16rF5] \
  72.     #(  )) >
  73.  
  74. <primitive 112 pTempVar 19  " getWindowAddressList " \
  75.   #( #[ 16r52 16r53 16rFA 16r02 16rFA 16rF1 16r71 16rF3 16rF5] \
  76.     #(  )) >
  77.  
  78. <primitive 112 pTempVar 20  " getScreenAddressList " \
  79.   #( #[ 16r52 16r52 16rFA 16r02 16rFA 16rF1 16r71 16rF3 16rF5] \
  80.     #(  )) >
  81.  
  82. <primitive 112 pTempVar 21  " getProcessAddressList " \
  83.   #( #[ 16r52 16r50 16rFA 16r02 16rFA 16rF1 16r71 16rF3 16rF5] \
  84.     #(  )) >
  85.  
  86. <primitive 112 pTempVar 22  " getTaskAddressList " \
  87.   #( #[ 16r52 16r51 16rFA 16r02 16rFA 16rF1 16r71 16rF3 16rF5] \
  88.     #(  )) >
  89.  
  90. <primitive 112 pTempVar 23  " getWindowAddress: " \
  91.   #( #[ 16r50 16r53 16r21 16rFA 16r03 16rFA 16rF3 16rF5] \
  92.     #(  )) >
  93.  
  94. <primitive 112 pTempVar 24  " getScreenAddress: " \
  95.   #( #[ 16r50 16r52 16r21 16rFA 16r03 16rFA 16rF3 16rF5] \
  96.     #(  )) >
  97.  
  98. <primitive 112 pTempVar 25  " getTaskAddress: " \
  99.   #( #[ 16r50 16r51 16r21 16rFA 16r03 16rFA 16rF3 16rF5] \
  100.     #(  )) >
  101.  
  102. <primitive 112 pTempVar 26  " getProcessAddress: " \
  103.   #( #[ 16r50 16r50 16r21 16rFA 16r03 16rFA 16rF3 16rF5] \
  104.     #(  )) >
  105.  
  106. <primitive 112 pTempVar 27  " time: " \
  107.   #( #[ 16rFA 16r00 16rA1 16r72 16r21 16rA5 16rF2 16rFA 16r00 16rA1 16r22 \
  108.         16rC1 16rF3 16rF5] \
  109.     #(  )) >
  110.  
  111. <primitive 112 pTempVar 28  " sh: " \
  112.   #( #[ 16r21 16rFA 16r01 16r7D 16rF3 16rF5] \
  113.     #(  )) >
  114.  
  115. <primitive 112 pTempVar 29  " perform:withArguments: " \
  116.   #( #[ 16r22 16r21 16rFA 16r02 16r8F 16rF3 16rF5] \
  117.     #(  )) >
  118.  
  119. <primitive 112 pTempVar 30  " noDisplay " \
  120.   #( #[ 16r51 16r50 16rFA 16r02 16r08 16rF3 16rF5] \
  121.     #(  )) >
  122.  
  123. <primitive 112 pTempVar 31  " doPrimitive:withArguments: " \
  124.   #( #[ 16r21 16r22 16rFA 16r02 16r1E 16rF3 16rF5] \
  125.     #(  )) >
  126.  
  127. <primitive 112 pTempVar 32  " displayAssign " \
  128.   #( #[ 16r51 16r52 16rFA 16r02 16r08 16rF3 16rF5] \
  129.     #(  )) >
  130.  
  131. <primitive 112 pTempVar 33  " display " \
  132.   #( #[ 16r51 16r51 16rFA 16r02 16r08 16rF3 16rF5] \
  133.     #(  )) >
  134.  
  135. <primitive 112 pTempVar 34  " debug: " \
  136.   #( #[ 16r52 16r21 16rFA 16r02 16r08 16rF3 16rF5] \
  137.     #(  )) >
  138.  
  139. <primitive 112 pTempVar 35  " date " \
  140.   #( #[ 16rFA 16r00 16rA0 16rF3 16rF5] \
  141.     #(  )) >
  142.  
  143. <primitive 112 pTempVar 36  " addGlobal:key: " \
  144.   #( #[ 16r20 16r22 16r21 16r92 16r00 16rF3 16rF5] \
  145.     #( #at:put:  )) >
  146.  
  147. <primitive 112 pTempVar 37  " globalDictionary " \
  148.   #( #[ 16r13 16rF3 16rF5] \
  149.     #(  )) >
  150.  
  151. <primitive 112 pTempVar 38  " clearScreen " \
  152.   #( #[ 16rFA 16r00 16rA2 16rF2 16rF5] \
  153.     #(  )) >
  154.  
  155. <primitive 112 pTempVar 39  " current " \
  156.   #( #[ 16r10 16rA1 16rF7 16r09 16r20 16r80 16r00 16r60 16r05 16r28 16rA0 \
  157.         16r63 16r5D 16rF2 16r20 16rF3 16rF5] \
  158.     #( #privateNew  )) >
  159.  
  160. <primitive 112 pTempVar 40  " new " \
  161.   #( #[ 16r20 16r0A 16r16 16rF3 16rF5] \
  162.     #(  )) >
  163.  
  164. <primitive 112 pTempVar 41  " privateNew " \
  165.   #( #[ 16r20 16r90 16r00 16r71 16r21 16rF3 16rF5] \
  166.     #( #new  )) >
  167.  
  168. <primitive 98 #AmigaTalk \
  169.   <primitive 97 #AmigaTalk #Dictionary #AmigaTalk:General/AmigaTalk.st \
  170.    #(  #uniqueInstance #msg #wTitle #globalDict ) \
  171.    #( #displayInteger: #displayString: #displayFile: #getScreenModeID  \
  172.        #getFileName #getInteger #getString #setIOScreenName: #setIODirectory: #setIOTitle:  \
  173.        #setIOMessage: #newIO:title: #displayWindowInfo: #displayScreenInfo:  \
  174.        #displayTaskInfo: #displayProcessInfo: #showScreenWindowList #showTaskProcessList  \
  175.        #getWindowAddressList #getScreenAddressList #getProcessAddressList #getTaskAddressList  \
  176.        #getWindowAddress: #getScreenAddress: #getTaskAddress: #getProcessAddress: #time: #sh:  \
  177.        #perform:withArguments: #noDisplay #doPrimitive:withArguments: #displayAssign #display #debug:  \
  178.        #date #addGlobal:key: #globalDictionary #clearScreen #current #new  \
  179.        #privateNew  ) \
  180.   pTempVar 3 5 >>
  181.  
  182.